home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / CRYSTAL / VPRINTER.DEF < prev    next >
Encoding:
Modula Definition  |  1993-03-28  |  4.0 KB  |  135 lines
  1. DEFINITION MODULE VPrinter;
  2.  
  3. (*
  4. VDI Printer Functions.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. FROM VDI    IMPORT XY;
  12. FROM PORTAB IMPORT UNSIGNEDWORD,SIGNEDWORD;
  13.  
  14. (* [V]DI: [Form] [Adv]ance *************************************************)
  15.  
  16. PROCEDURE VFormAdv(Handle: UNSIGNEDWORD);
  17.  
  18. (* [V]DI: [Output] [Window] ************************************************)
  19.  
  20. PROCEDURE VOutputWindow(    Handle: UNSIGNEDWORD;
  21.                         VAR PXY   : ARRAY OF XY);
  22.  
  23. (* [V]DI: [Clear] [Disp]lay [List] *****************************************)
  24.  
  25. PROCEDURE VClearDispList(Handle: UNSIGNEDWORD);
  26.  
  27. (* [V]DI: Output [Bit] [Image] File ****************************************)
  28.  
  29. TYPE HorizontalAlignments = (BILeft,BICenter,BIRight);
  30.      VerticalAlignments = (BITop,BIMiddle,BIBottom);
  31.  
  32. PROCEDURE VBitImage(    Handle: UNSIGNEDWORD;
  33.                     VAR Path  : ARRAY OF CHAR;
  34.                         Aspect: BOOLEAN;
  35.                         XScale: BOOLEAN;
  36.                         YScale: BOOLEAN;
  37.                         HAlign: HorizontalAlignments;
  38.                         VAlign: VerticalAlignments;
  39.                     VAR PXY   : ARRAY OF XY);
  40.  
  41. (* [V]DI: Output e[X]tended [Bit] [Image] File *****************************)
  42.  
  43. PROCEDURE VXBitImage(    Handle    : UNSIGNEDWORD;
  44.                      VAR Path      : ARRAY OF CHAR;
  45.                          Aspect    : BOOLEAN;
  46.                          XScale    : BOOLEAN;
  47.                          YScale    : BOOLEAN;
  48.                          HAlign    : HorizontalAlignments;
  49.                          VAlign    : VerticalAlignments;
  50.                          Rotate    : UNSIGNEDWORD;
  51.                          BackGround: UNSIGNEDWORD;
  52.                          ForeGround: UNSIGNEDWORD;
  53.                      VAR PXY       : ARRAY OF XY);
  54.  
  55. (* [V]DI: [Q]uery Printer [Scan] *******************************************)
  56.  
  57. PROCEDURE VQScan(    Handle     : UNSIGNEDWORD;
  58.                  VAR Slices     : UNSIGNEDWORD;
  59.                  VAR PageHeight : UNSIGNEDWORD;
  60.                  VAR SliceHeight: UNSIGNEDWORD;
  61.                  VAR LinesPage  : UNSIGNEDWORD;
  62.                  VAR DivFactor  : UNSIGNEDWORD);
  63.  
  64. (* [V]DI: Output [Alpha] [Text] ********************************************)
  65.  
  66. CONST DC2 = 22C;
  67.  
  68.       BoldFaceOn     = "0";
  69.       BoldFaceOff    = "1";
  70.  
  71.       ItalicsOn      = "2";
  72.       ItalicsOff     = "3";
  73.  
  74.       UnderlineOn    = "4";
  75.       UnderlineOff   = "5";
  76.  
  77.       SuperscriptOn  = "6";
  78.       SuperscriptOff = "7";
  79.  
  80.       SubscriptOn    = "8";
  81.       SubscriptOff   = "9";
  82.  
  83.       NLQOn          = "A";
  84.       NLQOff         = "B";
  85.  
  86.       ExpandedOn     = "C";
  87.       ExpandedOff    = "D";
  88.  
  89.       LightOn        = "E";
  90.       LightOff       = "F";
  91.  
  92.       Pica           = "W";
  93.       Elite          = "X";
  94.  
  95.       Condensed      = "Y";
  96.       Proportional   = "Z";
  97.  
  98. PROCEDURE VAlphaText(    Handle: UNSIGNEDWORD;
  99.                      VAR String: ARRAY OF CHAR);
  100.  
  101. (* [V]DI: Set [Orient]ation ************************************************)
  102.  
  103. TYPE Orientations = (Portrait,Landscape);
  104.  
  105. PROCEDURE VOrient(Handle: UNSIGNEDWORD;
  106.                   Orient: Orientations);
  107.  
  108. (* [V]DI: Make [Copies] ****************************************************)
  109.  
  110. PROCEDURE VCopies(Handle: UNSIGNEDWORD;
  111.                   Count : UNSIGNEDWORD);
  112.  
  113. (* [V]DI: Select [Tray] ****************************************************)
  114.  
  115. CONST Manual   = -1;
  116.       Default  =  0;
  117.       FirstOpt =  1;
  118.  
  119. PROCEDURE VTray(Handle: UNSIGNEDWORD;
  120.                 Tray  : SIGNEDWORD);
  121.  
  122. (* [V]DI: Set [P]ost [S]cript [Halftone] Mask ******************************)
  123.  
  124. PROCEDURE VPSHalftone(Handle   : UNSIGNEDWORD;
  125.                       Index    : UNSIGNEDWORD;
  126.                       Angle    : UNSIGNEDWORD;
  127.                       Frequency: UNSIGNEDWORD);
  128.  
  129. (* [V]DI: [Escape] [2000] **************************************************)
  130.  
  131. PROCEDURE VEscape2000(Handle: UNSIGNEDWORD;
  132.                       Times : UNSIGNEDWORD);
  133.  
  134. END VPrinter.
  135.